Top 10k strings from Knockout Whist (19xx)(Ian Richards).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 s$(card)=s$(spec)
   2 ;"YOU  SPECTRUM":
   2 "(longsuit):
   1 z;"You now have `";cash
   1 z$="YOU WIN"
   1 z$="SPECTRUM WINS":
   1 v(spec)>v(card)
   1 v(r(n))<v(spec)
   1 v(n)>v(card)
   1 v(n)=card-13
   1 v$(n)="23456789
   1 trick=trick-l:
   1 spec=r(l):
   1 sf=trick+1
   1 s$(x)=m$(n)
   1 s$(spec)=t$
   1 s$(spec)="*":
   1 s$(n)=s$(spec)
   1 s$(n)=s$(card)
   1 s$(card)=t$
   1 s$(card)="*":
   1 s$(card)="*"
   1 r(poss)=n:
   1 poss=poss+l:
   1 pl=pl+(v(13
   1 pick lowest possible
   1 master=master+l:
   1 m$(master)=s$(spec)
   1 longsuit=x:
   1 l;"Peter Fairweather"
   1 kitty=kitty+
   1 h(x)=h(x)+l:
   1 first=l)+("YOUR LEAD"
   1 first=(sp<pl):
   1 cash=cash-l
   1 cash=cash-50
   1 cash=cash-(sp>pl)*(sp-pl)-(sp=pl)
   1 cash=cash+kitty
   1 cash;''"Leave the Money on the Table"'"and I will collect it later"
   1 Singleton?
   1 Same suit-any beat it?
   1 RUN THE TAPE
   1 Player leads
   1 Master Suits?
   1 KNOCK OUT WHIST
   1 JQKA"(v(n)):
   1 High card from suit
   1 Default=longest suit
   1 Cant follow-any trumps?
   1 CUT FOR TRUMPS
   1 CHOOSE TRUMPS
   1 Any card is possible
   1 A$>trick+48
   1 ="N")-1380
   1 ;v$(spec);
   1 ;v$(card);
   1 ;s$(spec):
   1 ;s$(card):
   1 ;("YOUR TURN"
   1 ;"You now have `";cash:
   1 ;"YOUR HAND";
   1 ;"YOU won ";pl;" tricks"''"SPECTRUM won ";sp;" tricks"
   1 ;"YOU WIN":
   1 ;"TRUMPS ";t$
   1 ;"SPECTRUM's HAND";
   1 ;"SPECTRUM";:
   1 ;"SPECTRUM"
   1 ;"SPECTRUM WINS"
   1 ;"SHUFFLING THE CARDS"
   1 ;"Press any Key"
   1 ;"O.K.   Thanks for the Game"
   1 ;"Kitty=`";kitty
   1 ;"K.O.WHIST":
   1 ;"K.O.WHIST"
   1 ;"ILLEGAL  CARD":
   1 ;"Another Game [y/n] 
   1 ,x,x,x,x,x,152
   1 ,o;"Press any Key to continue":
   1 ,o;"O.K.  You won `";cash;", but I will"''"    win it all back next time"
   1 ,o;"O.K.  You owe `";
   1 ,o,x,"p",4
   1 ,l,o,x,x,x,x,"m",5
   1 ,"h",o,108
   1 *(suit-l):
   1 *(spec-trick)-28
   1 ((card-l)/13
   1 ("2020"(suit))
   1 '"The Winner of each round choosestrumps for the next round.Trumpsare Random for the first round."''"
   1 '"   SAME PLAYER [y/n] 
   1 #l;"   Press any key to continue":
   1 "k",o,x,x,x,x,32
   1 "You start with `50, and you mustput `1 into the KITTY at the    start of each game."''"The loser of each round must put`1 into the KITTY for each trickunder."''"Both players put in `1 if the   tricks are equal."''"The WINNER of the Game takes theKitty"
   1 "K.O.WHIST"
   1 " won the Game"
   1  will quit if it is   your turn to play a card.)" 
   1  GOOD LUCK !!"''"(Pressing